﻿Imports Microsoft.VisualBasic

Public Class RewriteUrlClass
    Implements IHttpModule
#Region "IHttpModule Members"

    Public Sub Dispose() Implements IHttpModule.Dispose
    End Sub

    Public Sub Init(context As HttpApplication) Implements IHttpModule.Init
        AddHandler context.BeginRequest, AddressOf Context_BeginRequest
    End Sub

    Private Shared Sub Context_BeginRequest(sender As Object, e As EventArgs)
        Dim httpApplication As HttpApplication = DirectCast(sender, HttpApplication)
        Dim url As String = httpApplication.Request.RawUrl.ToLower()

        ' Nếu là Url ảo như sau"
        If url.Contains("/TrangChu.aspvn") Then
            ' Thì Url thực mà Server cần xử lý là:
            httpApplication.Context.RewritePath("index.aspx")
        End If

        ' Nếu là Url ảo như sau"
        If url.Contains("/login.aspvn") Then
            ' Thì Url thực mà Server cần xử lý là:
            httpApplication.Context.RewritePath("Login.aspx")
        End If

        ' Tùy thuộc vào quy tắt Rewrite mà chúng ta xử lý.
        ' Một trong những cách hiệu quả nhất là dùng Regex Expression.

    End Sub

#End Region
End Class
